
 
 * Import data 
 
 import excel "Data/GermanDebt.xlsx", sheet("Sheet1") firstrow clear

 
 graph bar     LongTerm_excl Reichloans, over(Debtor, sort(Plotorder)) stack legend(pos(2) ring(0) order(1 "Long-term indebtedness (non-Reich loans)" 2 "Reich loans (Dawes & Young)")) ytitle("Debt in m reichsmark (end of 1931)")
 
 	 graph export "Output/Figure4.pdf", replace 

	 
	 